This command will set the texture filtering mode of the specified object.

SET OBJECT FILTER Object Number, Flag

SET OBJECT FILTER Object Number, Stage Number, Flag

Object Number

Integer
The object number

Stage Number

Integer
A Filter value of zero does no mipmapping, a value of one uses no smoothing and a value of two uses Linear Filtering

Flag

Integer
Specify a value of zero to disable, and a value of one to enable.

This command does not return a value.

The Filter value sets the texture filtering, which controls the smoothing effect of the texture as it is mapped to the object. A Filter value of zero does no mipmapping, a value of one uses no smoothing and a value of two uses Linear Filtering.

sync on : sync rate 60 : hide mouse:cls 0:color backdrop 0

fog on:fog color 0:set ambient light 50

ObjectNumber=2:ImageNumber=2

wire=0:trans=0:cull=0:fliter=0:light=0:fog=0:ambient=0

set global object creation 0

set dir "models"

load object "ast4.x",ObjectNumber

set object specular ObjectNumber,0

rotate object ObjectNumber,270,0,0

set dir ".."

while mouseclick()<>2

set cursor 0,0

print "press 1 to set object wireframe";wire:if inkey$()="1" then wire=1-wire:set object wireframe ObjectNumber,wire

print "press 2 to set object transparency";trans:if inkey$()="2" then trans=1-trans:set object transparency ObjectNumber,trans

print "press 3 to set object cull";cull:if inkey$()="3" then cull=1-cull:set object cull ObjectNumber,cull

print "press 4 to set object filter";filter:if inkey$()="4" then filter=1-filter:set object filter ObjectNumber,filter

print "press 5 to set object light";light:if inkey$()="5" then light=1-light:set object light ObjectNumber,light

print "press 6 to set object fog";fog:if inkey$()="6" then fog=1-fog:set object fog ObjectNumber,fog

print "press 7 to set object ambient";ambient:if inkey$()="7" then ambient=1-ambient:set object ambient ObjectNumber,ambient

while scancode()<>0:endwhile

if mouseclick()=1 then yrotate object ObjectNumber,wrapvalue(object angle y(ObjectNumber)+1)

sync

endwhile

while mouseclick()=1:endwhile

delete object ObjectNumber

end

BASIC3D Commands Menu
Index